home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs56.d81 / graph.sfx / graph.c next >
Text File  |  1990-02-12  |  9KB  |  343 lines
  1. /* GRAPHIC.C */
  2.  
  3. /*****************************************************************************/
  4. /*                    ┬ASIC ╔╧ ROUTINES FOR THE ╓─├ CHIP                     */
  5. /*                                                                           */
  6. /*  ╘HE FOLLOWING ├128 ROUTINES WERE USED TO SPEED UP OPERATIONS TO THE ╓─├  */
  7. /*                                                                           */
  8. /*  ┬┴╬╦  ┴──╥┼╙╙   ╬┴═┼                                                     */
  9. /* ▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐▐ */
  10. /*  15    $├──┴   ╥┼┴─╥┼╟       ╥EAD A VALUE FROM ╓─├ REG # IN ╪, VALUE IS   */
  11. /*                              IS RETURNED IN ┴.                            */
  12. /*                                                                           */
  13. /*  15    $├─├├   ╫╥╔╘┼╥┼╟      ╫RITE A VALUE TO ╓─├ REG # IN ┴, VALUE IS IN */
  14. /*                              ╪ REG.                                       */
  15. /*                                                                           */
  16. /*  15    $├┼0├   ╔╬╔╘80        ╥ESET ╓─├ TO DEFAULT CONDITIONS AND LOAD     */
  17. /*                              STANDARD ├OMMODORE CHARACTER SET.            */
  18. /*                                                                           */
  19. /*  15    $├──8   ╥┼┴─80        ╥EADS A MENORY LOCATION FROM ╓─├ MEMORY, SET */
  20. /*                              ADDRESS TO BE READ IN ╓─├ REG 18 & 19,       */
  21. /*                              VALUE RETURNED IN ┴.                         */
  22. /*                                                                           */
  23. /*  15    $├─├┴   ╫╥╔╘┼80       ╫RITE A VALUE TO ╓─├'S MEMORY, SET MENORY    */
  24. /*                              ADDRESS IN ╓─├ REG 18 & 19, VALUE IN ┴       */
  25. /*                                                                           */
  26. /*****************************************************************************/
  27.  
  28.  
  29.  
  30. READVDC(PORTREG) /* READ A VDC. REG. */ CHAR PORTREG;
  31. █
  32. CHAR PORTREG,A,Y;
  33.     SYS(0X0F,0XCDDA,&A,&PORTREG,&Y);
  34.     RETURN(A);   
  35. ▌
  36.  
  37. WRITEVDC(PORTREG,REGBYTE) CHAR PORTREG,REGBYTE;
  38. █
  39. CHAR Y;
  40.  
  41. *   SYS(0X0F,0XCDCC,®BYTE,&PORTREG,&Y);
  42. ▌
  43.  
  44. POKEVDC(ADDR,BYTE) CHAR BYTE; UNSIGNED ADDR;
  45. █
  46. CHAR HI,LO,PORTREG,REGBYTE,Y;
  47.  
  48.     HI = ADDR;
  49.     LO = ADDR >> 8;
  50.     PORTREG = 18;
  51.     REGBYTE = HI;
  52.     SYS(0X0F,0XCDCC,®BYTE,&PORTREG,&Y);
  53.     PORTREG = 19;
  54.     REGBYTE = LO;
  55.     SYS(0X0F,0XCDCC,®BYTE,&PORTREG,&Y);
  56.   ) SYS(0X0F,0XCDCA,&BYTE,&PORTREG,&Y);
  57. ▌
  58.  
  59. PEEKVDC(ADDR) UNSIGNED ADDR;
  60. █
  61. CHAR HI,LO,REGBYTE,PORTREG,Y;
  62.  
  63.     HI = ADDR;
  64.     LO = ADDR >> 8;
  65.     PORTREG = 18;
  66.     REGBYTE = HI;
  67.     SYS(0X0F,0XCDCC,®BYTE,&PORTREG,&Y);
  68.     PORTREG = 19;
  69.     REGBYTE = LO;
  70.     SYS(0X0F,0XCDCC,®BYTE,&PORTREG,&Y);
  71.     SYS(0X0F,0XCDD8,®BYTE,&PORTREG,&Y); 
  72.     RETURN (REGBYTE);
  73. ▌
  74.  
  75. /*****************************************************************************/
  76. /*         ╥OUTINES TO ENABLE AND DISABLE THE HIRES MODE OF THE ╓─├          */
  77. /*                                                                           */
  78. /*****************************************************************************/
  79.  
  80. HIRES() /* INIT HIRES MODE */
  81. █
  82.     WRITEVDC(25,135);
  83.     WRITEVDC(26,113); 
  84.     WRITEVDC(10,/);
  85. ▌
  86. HIRESCOLOR(FOREGROUND) CHAR BACKGROUND;
  87. █
  88. /* THE BACKGROUND IS ALLWAYS BLACK */
  89.     WRITEVDC(26,(FOREGROUND * 16));
  90. ▌
  91. CLRHIRES(FLAG)
  92. INT FLAG;
  93. █
  94. CHAR BYTE;
  95. INT I;
  96.  
  97.     WRITEVDC(18,0);
  98.     WRITEVDC(19,0);
  99.     IF (FLAG) BYTE = 0;
  100.     ELSE BYTE = 0XFF;
  101.     FOR (I=0 ; I<=64 ; I++) █
  102.         WRITEVDC(31,BYTE);
  103.         WRITEVDC(30,0); 
  104.     ▌
  105. ▌
  106.  
  107. TEXTMODE(BANK,CHARADDR) UNSIGNED CHARADDR; INT BANK;
  108. █
  109.     WRITEVDC(25,71);
  110.     CLRHIRES(-1);
  111.     WRITEVDC(10,96);
  112.     LOADCHAR(BANK,CHARADDR); /* C POWER'S CHARACTER SET IS AT $3800 6/
  113. ▌
  114.  
  115. LOADCHAR(FLAG,ADDR) INT BANK; UNSIGNED ADDR;
  116. █
  117. CHAR A,X,Y;
  118. INT ENDING,I,J;
  119.  
  120.     SYS(0X0F,0XCE0C,&A,&X,&Y); /* USE ╥╧═ ROUTINE ╔╬╔╘80 TO LOAD COMMODORE CHAR. SET */
  121.     IF (BANK) █
  122.          ENDING = ADDR+2048;
  123.          WRITEVDC(18,32);
  124.          WRITEVDC(19,0);
  125.          FOR (I=ADDR ; I<=ENDING ; I=I+8) █
  126.              FOR (J=0 ; J<=7 ; J++) █
  127.                  WRITEVDC(31,PEEK(15,I+J));
  128.              ▌ 
  129.              FOR (J=8 ; J<=15 ; J++) █
  130.                  WRITEVDC(31,0);
  131.              ▌ 
  132.          ▌
  133.     ▌ 
  134. ▌
  135.  
  136. /******************************************************************************/
  137. /*               ╨LOTING AND DRAWING ROUTINES FOR THE ╓─├                     */
  138. /*                                                                            */
  139. /* ╘HESE WOULD BE MUCH FASTER IF WRITTEN IN ═.╠., BUT ARE ╧.╦. FOR DOING      */
  140. /* DRAWINGS, BUT WOULDN'T DO FOR GAMES.                                       */
  141. /*                                                                            */
  142. /******************************************************************************/
  143.  
  144. PLOT(SX,SY,MODE) INT SX,SY,MODE;
  145. █
  146. INT VDCADDR,A,X,Y,MFLAG;
  147. EXTERN INT CURRENTX,CURRENTY;
  148. CHAR MASKBYTE,VDCBYTE,ADDRLO,ADDRHI,PORTREG,REGBYTE;
  149.  
  150. STATIC INT MASK[8] = █ 128,64,32,16,8,4,2,1 ▌;
  151.     VDCADDR = SY*80+SX/8;
  152.     MASKBYTE = MASK[(SX % 8)];
  153.     ADDRHI = VDCADDR >> 8;
  154.     ADDRLO = VDCADDR;
  155.     PORTREG = 18;
  156.     REGBYTE = ADDRHI;
  157.     SYS(0XF,0XCDCC,®BYTE,&PORTREG,&Y);
  158.     PORTREG = 19;
  159.     REGBYTE = ADDRLO;
  160.     SYS(0XF,0XCDCC,®BYTE,&PORTREG,&Y);
  161.     SYS(0XF,0XCDD8,&VDCBYTE,&X,&Y);
  162.     PORTREG = 18;
  163.     REGBYTE = ADDRHI;
  164.     SYS(0XF,0XCDCC,®BYTE,&PORTREG,&Y);
  165.     PORTREG = 19;
  166.     REGBYTE = ADDRLO;
  167.     SYS(0XF,0XCDCC,®BYTE,&PORTREG,&Y);
  168.     IF (MODE = 1)█
  169.         REGBYTE = (VDCBYTE  MASKBYTE);
  170.         GOTO PLOTTER;
  171.     ▌
  172.     IF (MODE = 2) █
  173.         REGBYTE = (VDCBYTE & (MASKBYTE));
  174.         GOTO PLOTTER;
  175.     ▌
  176.     IF (MODE = 0 )█
  177.         MASKBYTE = MASKBYTE;
  178.         REGBYTE = (VDCBYTE & MASKBYTE);
  179.         GOTO PLOTTER;
  180.     ▌
  181.     IF (MODE>2  MODE<0)
  182.         RETURN(0);
  183.  
  184.     PLOTTER:
  185.  
  186.     SYS(0XF,0XCDCA,®BYTE,&PORTREG,&Y); 
  187.     RETURN(1);
  188. ▌
  189.  
  190. DRAW(X1,Y1,X2,Y2,MODE) INT X1,X2,Y1,Y2,MODE;
  191. █
  192. EXTERN CURRENTX,CURRENTY;
  193. INT DX,DY,ADX,ADY,XA,YA,D,INC1,INC2;
  194.  
  195.     PLOT(X1,Y1);
  196.     DX = X2-X1;
  197.     DY = Y2-Y1;
  198.  
  199.     IF(DX<0) █
  200.         XA = -1;
  201.         ADX = -DX;
  202.     ▌ ELSE █
  203.         XA = 1;
  204.         ADX = DX;
  205.     ▌
  206.     IF(DY<0) █
  207.         YA = -1;
  208.         ADY = -DY;
  209.     ▌ ELSE █
  210.         YA = 1;
  211.         ADY = DY;
  212.     ▌
  213.  
  214.     IF(ADY>ADY) █
  215.         INC1 = ADY << 1;
  216.         D = INC1 - ADX;
  217.         INC2 = INC1 - (ADX << 1);
  218.         
  219.         WHILE(X1 != X2) █
  220.             X1 += XA;
  221.             IF(D<0)
  222.                 D += INC1;
  223.             ELSE █
  224.                 Y1 += YA;
  225.                 D += INC2;
  226.             ▌
  227.             PLOT(X1,Y1);
  228.         ▌
  229.     ▌ ELSE █
  230.         INC1 = ADX << 1;
  231.         D = INC1 - ADY;
  232.         INC2 = INC1 - (ADY << 1);
  233.  
  234.         WHILE(Y1 != Y2) █
  235.             Y1 += YA;
  236.             IF(D<0)
  237.                 D += INC1;
  238.             ELSE █
  239.                 X1 += XA;
  240.                 D += INC2;
  241.             ▌
  242.             PLOT(X1,Y1);
  243.         ▌
  244.     ▌
  245.     CURRENTX = X2;
  246.     CURRENTY = Y2;
  247. ▌
  248.  
  249. DRAWTO(X,Y,MODE) INT X,Y,MODE;
  250. █
  251. EXTERN INT CURRENTX,CURRENTY;
  252.  
  253.     DRAW(CURRENTX,CURRENTY,X,Y,MODE);
  254.     CURRENTX = X;
  255.     CURRENTY =Y;
  256. ▌
  257.  
  258. DRAWREL(DX,DY,MODE) INT DX,DY,MODE;
  259. █
  260. EXTERN CURRENTX,CURRENTY;
  261.     
  262.     DRAW(CURRENTX,CURRENTY,CURRENTX+DX,CURRENTY+DY,MODE);
  263.     CURRENTX += DX;
  264.     CURRENTY += DY;
  265. ▌
  266.  
  267. HLINE(LENGTH,MODE) INT LENGTH,MODE;
  268. /* DRAWS A HORZ. LINE FRON THE CURRENT ╪ ┘ COORDS */
  269. █
  270. EXTERN INT CURRENTX,CURRENTY;
  271. INT I,END;
  272.  
  273.     END =CURRENTX+LENGTH;
  274.     IF (LENGTH >0 )
  275.        FOR (I=CURRENTX ; I<= END ; I++) PLOT(I,CURRENTY,MODE);
  276.     ELSE 
  277.         FOR (I=END ; I<= CURRENTX ; I++) PLOT(I,CURRENTY,MODE);
  278.     CURRENTX = END;    
  279. ▌
  280.  
  281. VLINE(LENGTH,MODE) INT LENGTH,MODE;
  282. /* DRAWS A VERTICAL LINE FROM THE CURRENT ╪ ┘ COORDS */
  283. █
  284. EXTERN INT CURRENTX,CURRENTY;
  285. INT I,END;
  286.  
  287.     END = CURRENTY+LENGTH;
  288.     IF(LENGTH>0)
  289.         =OR(I=CURRENTY ; I<=END ; I++) PLOT(CURRENTX,I,MODE);
  290.     ELSE
  291.         FOR(I=END ; I<=CURRENTY ; I++) PLOT(CURRENTX,I,MODE);
  292.     CURRENTY = END;    
  293. ▌
  294.  
  295. BOX(X,Y,X1,Y1,MODE) INT X,Y,X1,Y1,MODE;
  296. /* DRAWS A BOX OF H & W FROM CURRENT ╪ ┘ COORDINATES */
  297. █
  298.     DRAW(X,Y,X1,Y,MODE);
  299.     DRAW(X1,Y,X1,Y1,MODE);
  300.     DRAW(X1,Y1,X,Y1,MODE);
  301. R   DRAW(X,Y1,X,Y,MODE);
  302. ▌
  303.  
  304. SCALE(Y) INT Y;
  305. /* MAP Y COORDINATE IN TO 640 ╪ 450 SCREEN */
  306. █
  307.     IF (Y<=449)█ 
  308.         Y = 449-Y;
  309.         RETURN(Y*20/45);
  310.     ▌
  311.     ELSE
  312.         RETURN(-1);
  313. ▌
  314.  
  315. /**********************************************1******************************/
  316. /*                 ├URSOR LOCATION ROUTINES FOR HIRES MODE                   */
  317. /*                                                                           */
  318. /*  ├URRENT LOCATION IS IN THE GLOBAL VARIABLES CURRENTX & CURRENTY, DRAWTO, */
  319. /*  DRAWREL,HLINE,VLINE AND BOX ALL USE THESE VARIABLES. ─RAW SETS CURRENT   */
  320. /*  ╪ & ┘ TO IT'S LAST COORDINATES. ╨LOT DOSEN'T CHANGE CURRENTX OR CURRENTY */
  321. /*  OR  REFERENCE THEM.                                                      */
  322. /*                                                                           */
  323. /*****************************************************************************/
  324.  
  325. WHEREX()
  326. █
  327. EXTERN INT CURRENTX;
  328.     RETURN(CURRENTX);
  329. ▌
  330.  
  331. WHEREY()
  332. █
  333. EXTERN INT CURRENTY;
  334.     RETURN(CURRENTY);
  335. ▌
  336.  
  337. GOTOXY(X,Y) INT X,Y;
  338. █
  339. EXTERN INT CURRENTX,CURRENTY;
  340.     CURRENTX = X;
  341.     CURRENTY = Y;
  342. ▌
  343.